Private Sub btnƷ_Click()

    Dim i As Integer
    Dim  As Integer

    With lst

         = .ListIndex

        .AddItem .List(.ListIndex),  + 2

        For i = 1 To .ColumnCount - 1

            .List( + 2, i) = .List(.ListIndex, i)

        Next i

        .RemoveItem .ListIndex
        .ListIndex =  + 1

    End With

End Sub